5 POKE53272,23:POKE53280,11:POKE53281,11:POKE646,5
10 FORI=1TO10:READA$(I):NEXT:PRINT"[147]":FORK=1TO10:FORT=1TO40-LEN(A$(K))
15 PRINT" ";:NEXT:PRINTA$(K)
20 IFK=3THENPRINT:PRINT
25 IFK=5THENPRINT
30 NEXT
35 DATA"[212][201][199][197][210] [195][210][197][215]","[198]ELDSTRASSE 17","36391 [211]INNTAL"
40 DATA"IMMER BESTE [208][196] HABEN","= [212][201][199][197][210]-[196][201][211][203] ABONNIEREN!"
45 DATA"[214][201][197][204] [211][208][193][211][211]","MIT DIESER","[212]IGER-[196]ISK!","[196]EINE","[212][201][199][197][210][195][210][197][215]!"
50 POKE198,0:WAIT198,1:PRINT"":LIST10-30